home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-13 / amac44d.zip / SRL.QM < prev    next >
Text File  |  1992-06-22  |  4KB  |  110 lines
  1. *                                 SRL.QM
  2. *         Search ONLY From Command Line With SRL.BAT and SZ.BAT
  3. *                                 6/8/92
  4. *
  5. * ----------------------------------------------------------------------
  6. * @(7) - Search ONLY From Command Line With SRL.BAT and SZ.BAT
  7. * ----------------------------------------------------------------------
  8. * This macro performs a search only of text files and loads all files
  9. * containing the search text.  It is the autoexecutable macro to
  10. * perform a search only from the command line only using the batch file
  11. * SRL.BAT.  FGREP.COM, INPUT.COM and QEdit v2.15 are required.
  12. * Changing c:\ to your ram drive will increase speed.
  13.  
  14. * Parameters may either be input from the command line or in response
  15. * to query prompts.  Please refer to SRL.BAT for other details
  16. * concerning entering optional parameters at the command line or in
  17. * response to input query prompts.  Please refer to SR.QM and SRL.BAT
  18. * for other details.
  19.  
  20. * To search for text in non-zip files type SRL at the command line and
  21. * answer prompt for search text. After the files containing the search
  22. * text are loaded, press F4 to highlight first occurence of search
  23. * text. Press F6 then F4 to highlight first occurence of search text in
  24. * first file containing search text. IT CANNOT BE RUN WHILE EDITING!
  25.  
  26. * When completed, the following files are loaded for viewing or
  27. * editing:
  28.  
  29. *    Window 1   c:\!  List of files found & search text by line
  30. *    Window 2   n+1   Files containing search text
  31. *                (n = # files containing search text)
  32. *
  33. * Temporary file names are:
  34.  
  35. * c:\$.ql  List of files found & search text (output from FGREP.COM)
  36. * c:\!     Same as c:$.ql
  37. * c:\$     Output of Dos SET
  38.  
  39. * FGREP.COM, INPUT.COM and QEdit v2.15 are required.  Changing c:\ to
  40. * your ram drive will increase speed.  Please refer to SRL.BAT and
  41. * SR.COM for other details concerning entering optional parameters at
  42. * the command line or in response to input query prompts.
  43.  
  44. @7      macrobegin altwordset    * For all file names
  45.         cursordown cursorup
  46.         jtrue START              * Test if any search text found
  47.     * --------------- Display "No found text" Message ---------------*
  48.     MESSAGE:
  49.         "No found text"                                                    *|
  50.         jump END                 * If not found, display this
  51.     * -------------------------- Load Files --------------------------*
  52.     START:
  53.         endfile
  54.     LOADAGAIN:
  55. *       unmarkblock              * Unmark last file name                   *|
  56.         setscreenon setscreenoff * To reduce flashing
  57.         find
  58.             #42 "Fi" return
  59.             "B"  return          * Find file name
  60.         jfalse MESSAGE           * No find ?, show message, end
  61.         wordright wordright
  62.         markcolumn endline copy  * Copy file name to scrap
  63.         EditFile
  64.             CurrentFilename " "
  65.             Paste Return         * Load file
  66.         cursorup
  67.         jtrue LOADAGAIN          * Test if more filenames?
  68.     * ------------------- Get Search Text To Scrap -------------------*
  69.         editfile "c:\$" return   * Load set output file
  70.         find
  71.             "S~~" return
  72.             delline return       ** Find S~~ in SET output
  73.         find
  74.             "=" return
  75.             delline return       * Move to =
  76.         cursorright              * Move first character
  77.         markcharacter            * Mark it
  78.         endline                  * Move to end of text
  79.         copy                     * Copy search text to scrap
  80.         killfile quit            * Kill/quit temp for next time
  81.         Find
  82.             paste return
  83.             "i" return           * Initialize find for F4
  84.         begfile
  85.     END:
  86.         defaultwordset
  87. *
  88. *  83 bytes Sat  02-09-1991  10:47:23
  89. * 107 bytes Thu  04-25-1991  12:04:27 added "No found text" message
  90. *                                     added find initialize for search
  91. *                                     changed "c:" to "c:\"
  92. * 110 bytes Tue  04-30-1991  22:11:07 changed initialize find routine
  93. * 114 bytes Wed  04-15-1992  16:46:20 (TH @7, for QEdit v2.15)
  94. *                 (In Amac42e.zip)
  95. * 111 bytes Mon  06-01-1992  17:28:19 (TH @7, shortened)
  96.  
  97.  
  98. * (f4)
  99. f4      repeatfind
  100.  
  101.  
  102. * (f5)
  103. f5      prevfile
  104.  
  105.  
  106. * (f6)
  107. f6      nextfile
  108.  
  109.  
  110.